MacHack 1993/MacHack 1993.toast/MacHack™ 1987-1992/MacHack™ '90/Utilities ƒ/MPW Tools ƒ/Simula4.07/Simula 4.07ƒ/SInterfaces/string_text.sim

Text File | 1989-03-29 | 189 b | 9 lines | [TEXT/MPS ]

%     text_string
% Routine to convert a Mac Pascal type str255 to a SIMULA text.
%

    text procedure string_text(t); text t;
    begin
        string_text:-t.sub(2,rank(t.sub(1,1).getchar));
    end;